8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Geos/GEOS128/GeosD81/CS77.D81/read me first

Commodore BASIC | 2019-04-13 | 5.5 KB | 134 lines

5 REM SAVE"FGM/D/PLOT.DOC"
10 REM THESE DOCS FOR USE WITH 'FGM V6 DEMO' PROGRAM ONLY.
15 POKE53280,7:POKE53281,7:PRINTCHR$(14)
20 PRINT"[147][144]"TAB(3)"[201]NSTRUCTIONS FOR '[208].[208][204][207][212][196][197][205][207]4601'
65 [153]:[133]" PEEKYPASS INSTRUCTIONS (Y/N)";LD$
70 [139]LD$[178]"Y"[167]905
75 [133]"  LEFT$ARDCOPY (Y/N)";HC$:DV[178]4:SA[178]7:[139]HC$[178]"N"[167]DV[178]3:SA[178]1
80 [139]HC$[179][177]"Y"[175]HC$[179][177]"N"[167]20
85 [159]7,DV,SA:[153]"LOAD":[152]7
90 [152]7,""[163]4)"RIGHT$NSTRUCTIONS FOR (null).(null)(null)(null)(null)STR$VAL(null)(null)4601."
93 [152]7,""[163]6)"BY (null)ON LEFT$ACKLEY & ATN. LEFT$AWKINS.":[152]7
95 [152]7,"      (null)HE FILES '(null).(null)(null)(null)(null)STR$VAL(null)(null)4601' AND"
100 [152]7," '(null)(null).(null)(null)(null)(null).4600' ON THIS DISK WORK IN"
105 [152]7," CONJUNCTION WITH 'ASCCHR$(null) (null)6 STR$VAL(null)(null)' ONLY."
110 [152]7," (null)HE PROGRAMS ARE DESIGNED TO SHOW HOW"
115 [152]7," MATHEMATICAL EQUATIONS CAN BE PLACED"
120 [152]7," ON THE ASCCHR$(null) SCREEN, (AFTER BEING AUTO-"
125 [152]7," PLOTTED), READY FOR 'DRESSING-UP' WITH"
130 [152]7," SUITABLE FONTS (ETC.) AND SUBSEQUENT"
135 [152]7," PRINTOUT FOR STUDENT ASSIGNMENTS."
140 [152]7:[152]7,"  LEFT$(null)(null)CLOSE(null)LEFT$VAL(null) (null)(null)(null)(null).":[152]7
145 [152]7,"         (null)HE FILE '(null).(null)(null)(null)(null)STR$VAL(null)(null)4601' IS"
150 [152]7," LOADED AND RUN FIRST.  ATNFTER THE FILE"
155 [152]7," LOADS, IT WILL IN TURN LOAD THE (null)/(null)"
160 [152]7," SUBROUTINE WHICH IS RELOCATED DOWN TO"
165 [152]7," $4600.":[139]DV[178]4[167]170
168 [141]1000
170 [152]7,"      (null)HE SCREEN WILL THEN SHOW TEXT,"
175 [152]7," THE LAST LINES LISTING LINE 1000"
180 [152]7," - (WHICH GIVES AN EXAMPLE EQUATION IN"
185 [152]7," 'STR$ASC(null) FUNCTION' FORMAT), AND '(null)(null)(null) 1000'"
190 [152]7," WHICH WILL INPUT ANY EQUATION TYPED"
195 [152]7," OVER THE ONE LISTED IN LINE 1000.":[152]7
200 [152]7,"      (null)EW USERS SHOULD PRESS (null)VAL(null)(null)(null)(null)"
205 [152]7," OVER THE '(null)(null)(null) 1000' PROMPT TO GENERATE"
210 [152]7," A HI-RES SCREEN GRAPHICAL VERSION OF"
215 [152]7," THE EXAMPLE EQUATION.  (null)HIS WILL TAKE"
220 [152]7," ABOUT A MINUTE TO RUN, SINCE IT HAS TO"
225 [152]7," SCALE SUITABLE MAXIMUM AND MINIMUM"
230 [152]7," (null) AND (null) COORDINATES AND THEN DRAW THE"
240 [152]7," ACTUAL REPRESENTATION OF THE EQUATION.":[152]7
245 [152]7,"      (null)HEN COMPLETED, THE SCREEN WILL"
250 [152]7," PROMPT YOU TO PRESS THE SPACE BAR"
255 [152]7," TWICE.  (null)HIS ACTION WILL GENERATE A"
260 [152]7," PROMPT TO LOAD THE 'ASCCHR$(null) (null)6 STR$VAL(null)(null)PEEK(null)(null)(null)'."
265 [152]7," PROGRAM.":[139]DV[178]4[167]270
268 [141]1000
270 [152]7,"      ATNT THIS POINT THE COMPUTER HAS"
275 [152]7," BEEN RESET, LEAVING ONLY THE HI-RES"
280 [152]7," SCREEN INTACT FOR RECOVERY BY THE DEMO"
285 [152]7," PROGRAM ABOUT TO BE LOADED.  (null)HEN THE"
290 [152]7," LOAD IS COMPLETED, SELECT #4 CHR$(null)(null)(null) LEFT$RIGHT$-"
295 [152]7," (null)VAL(null) (null)LEN(null)VALVAL(null)CLOSEVALSTR$RIGHT$(null)(null)(null) AND CHECK THAT THE"
300 [152]7," EQUATION REPRESENTATION IS PRESENT.":[152]7
305 [152]7,"      (null)OU CAN NOW 'DRESS IT UP' WITH"
310 [152]7," SELECTED FONTS, ADDITIONAL GRAPHICS OR"
315 [152]7," WHATEVER, USING THE ASCCHR$(null) KEY COMBO."
320 [152]7," (null)OU LENATN(null)(null)(null)(null) HOWEVER DUMP TO A PRINTER.":[152]7
325 [152]7," ATNS IT IS, YOU MUST BE CONTENT JUST TO"
330 [152]7," STARE AT THE CAPTURED IMAGE AND USE"
335 [152]7," YOUR IMAGINATION.  (null)OU LENATN(null) SAVE THE"
340 [152]7," IMAGE AS AN 'S.' FILE AND RELOAD IT BY"
345 [152]7," USING THE SAVE SCREEN OPTION OF THE"
350 [152]7," (null)ENU.":[152]7:[139]DV[178]4[167]355
353 [141]1000
355 [152]7," (null)HE FOLLOWING 0(null)(null)(null) APPLY FOR THE $$"
357 [152]7," VERSION OF 'ASCUN CHR$RAPHICS (null)ACHINE (null)6':":[152]7:[152]7
360 [152]7," RUN 600 .. (null)ILL PROMPT YOU TO PUT"
362 [152]7,"            'ASCCHR$(null)' INTO DRIVE AND PRESS"
364 [152]7,"            (null)VAL(null)(null)(null)(null). (ASCIRST, CHANGE THE"
366 [152]7,"            FILENAME TO 'ASCCHR$(null) (null)6' ETC."
368 [152]7,"            IN LINE 604).":[152]7
370 [152]7," RUN 700 .. (null)ILL PROMPT FOR A FILENAME."
375 [152]7,"            ATNN 'S.' IS PRE-PRINTED THAT"
380 [152]7,"            CAN BE DELETED IF IT'S NOT"
385 [152]7,"            WANTED. MID$UST PRESSING THE"
390 [152]7,"            (null)VAL(null)(null)(null)(null) KEY WITH THE 'S.' OR"
395 [152]7,"            NO FILENAME WILL ABORT THE"
400 [152]7,"            (null)ATN(null)VAL."
405 [152]7,"            ((null)(null)(null)VAL: (null)HE TEXT AT SCREEN"
410 [152]7,"            BOTTOM IS (null)(null)(null) HI-RES AND"
415 [152]7,"            THAT AREA WILL BE BLANK).":[152]7:[139]DV[178]4[167]420
418 [141]1000
420 [152]7," RUN 800 .. (null)ILL TURN THE HI-RES SCREEN"
425 [152]7,"            ON. (null)WAP BETWEEN THEM BY"
430 [152]7,"            PRESSING '(null)' AND EXIT BY"
435 [152]7,"            PRESSING (null)VAL(null)(null)(null)(null). (null)SING THIS"
440 [152]7,"            YOU CAN GET ALL THREE OF"
445 [152]7,"            THE SCREENS PLOTTED AND"
450 [152]7,"            THEN GO BACK TO 'LENREATOR'"
455 [152]7,"            TO ADD TEXT.":[152]7
460 [152]7," RUN 1000 . (null)ILL EXECUTE THE PLOT PRG."
465 [152]7,"            (null)HEN THE PROGRAM IS DONE"
470 [152]7,"            PLOTTING ON THE SCREEN, A"
475 [152]7,"            MESSAGE WILL COME UP AT THE"
480 [152]7,"            BOTTOM TO PRESS THE (null)PACE-"
485 [152]7,"            BAR (null)(null)RIGHT$LENVAL TO CONTINUE - I.E"
490 [152]7,"            TO VAL(null)RIGHT$(null) THE HI-RES SCREEN."
495 [152]7,"            (null)(null)RIGHT$LENVAL IS NEEDED BECAUSE OF"
500 [152]7,"            A QUIRK IN THE (null)/(null).":[152]7:[139]DV[178]4[167]505
503 [141]1000
505 [152]7," (null)HE MID$(null)(null)(null) ADDRESSES IN THE SOURCE CODE"
510 [152]7," (SEE (null)(null)RIGHT$CHR$RIGHT$(null)ATN(null) PROGRAM DOCS ELSEWHERE)"
515 [152]7," ARE STILL AVAILABLE; YOU JUST SUBTRACT"
520 [152]7," 31232 FROM THEM. (null)HE SCREEN COLOR HAS"
525 [152]7," BEEN CHANGED TO BLACK AND WHITE.":[152]7
530 [152]7,"      MID$UST USING (null)(null)(null) WILL CAUSE THE"
535 [152]7," PROGRAM TO LOOK FOR AND (null)(null)ATNSTR$ THE (null)/(null)"
540 [152]7," SUB-ROUTINE. ATNFTER THE (null)/(null) HAS BEEN"
545 [152]7," (null)(null)ATNSTR$ED ONCE YOU CAN SKIP LOADING AGAIN"
550 [152]7," BY USING '(null)(null)(null) 30'.":[152]7
555 [152]7," (null)(null)(null)VAL:  ATNNY TIME YOU ARE IN THE ASCCHR$(null)DEMO"
560 [152]7," PROGRAM, YOU CAN GET BACK TO THESE"
565 [152]7," STR$OCS FROM THE (null)ENU BY '+ (null)(null)RIGHT$(null)(null)/(null)(null)LEFT$VAL(null)'."
570 [152]7," (null)EXT, CHOOSE THE '(null)(null)RIGHT$(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)' OPTION"
575 [152]7," AND LOAD THESE STR$OCS ETC.":[152]7:[152]7
600 [152]7,"  VAL(null)STR$CLOSE(null)ASCCLOSESTR$(null)LEN(null) - ((null)LEFT$ATN(null)(null)CLOSEATN(null)(null), ASC(null)(null)(null)(null)!).
900 PRINT#7:CLOSE7:GOSUB1000
905 INPUT"[147] [204][207][193][196] '[208].[208][204][207][212][196][197][205][207]4601' [206][207][215]? (Y/N)";LD$:IFLD$<>"Y"ANDLD$<>"N"THEN905
910 IFLD$="N"THENPRINT"[147] [212]YPE '[211][217][211] 58260' TO CLEAR PROGRAM.":END
912 IFLD$="Y"THENGOTO2000
915 IFLD$="Y"THENSB$="P.PLOTDEMO4601":GOTO925
920 IFLD$<>"Y"ANDLD$<>"N"THEN905
925 PRINT"[147]LOAD"CHR$(34)SB$CHR$(34)",8":PRINT"    RUN"
930 POKE631,19:POKE632,13:POKE633,13
935 POKE198,3:NEW:END
940 REM 'P.PLOTDEMO4601' & 'ML.PLOT.4600' PROGRAM(S) MUST BE IN DISK DRIVE!
1000 PRINT"    [208]RESS [211][200][201][198][212] KEY TO GO ON"
1010 POKE198,0:WAIT653,1:WAIT653,1,1
1020 PRINT"[147]":RETURN
2000 INPUT" [201]S CORRECT DISK IN DRIVE 8 (Y/N)";FG$
2005 IFFG$<>"Y"THEN905
2010 IFFG$="Y"THEN915